January 16, 2016

一開始在黑貘大大牆上看到有API可以用,但是沒有 idea…

直到選前一夜激情,突然全台灣都為了一個小女生瘋狂!

既然黑貘大大的API都做好了,何不來玩點小東西呢?

首先來看看資料在哪裡

接著找出資料的位置跟他的連線方法

Let's play with R!

今天的材料

library(jsonlite)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(jiebaR)
## Loading required package: jiebaRD
library(wordcloud)
## Loading required package: RColorBrewer

取得資料

res <- jsonlite::fromJSON(URLencode(URL = "http://capitol.tw//search/data/周子瑜/"))
res$stream$message[1]
## [1] "--青天白日滿地紅--\n張安樂\n美麗的畫面\n『打倒列強、打倒列強,除軍閥、除軍閥,國民革命成功、國民革命成功,齊歡唱、齊歡唱。』\n忘了不知是哪部片子的銀幕裡,在『國民革命歌』的輕快歌聲伴隨下,一支雄赳赳、氣昂昂的隊伍,高舉著青天白日滿地紅的旗幟,邁向北伐的戰場。\n \n『中國一定強、中國一定強,你看那民族英雄謝團長。\n中國一定強、中國一定強,你看那八百壯士,孤軍奮守東戰場。\n四方都是炮火、四方都是豺狼,寧願死不退讓、寧願死不投降。\n我們的國旗在重圍中飄蕩、飄蕩、飄蕩、飄蕩!』\n『八百壯士』電影的銀幕裡,在『中國一定強』嘹亮的歌聲中,青天白日滿地紅的旗幟,在日軍的炮火下,驕傲地昇上了上海四行倉庫的頂樓。\n\n『山川壯麗,物產豐隆,炎黃世胄,東亞稱雄。毋自暴自棄,\n毋故步自封,光我民族,促進大同。創業維艱,緬懷諸先烈,\n守成不易,莫徒務近功。同心同德,貫徹始終,青天白日滿地紅。\n同心同德,貫徹始終,青天白日滿地紅。』 \n從小學到高中,每次升旗典禮上,青天白日滿地紅的旗幟,在『國旗歌』優雅的歌聲伴隨下,在旗桿上冉冉地上昇。\n\n光輝的歷史\n三個畫面代表了青天白日滿地紅這面旗幟的三個輝煌時代。\n    在『國民革命歌』時代,由國、共兩黨組成的國民革命軍,在青天白日滿地紅的旗幟底下,邁向北伐戰場,收服了盤踞在各地的軍閥,完成了國家初步的統一,展開了有『黃金十年』美譽的國家建設,奠定了日後抗戰的基礎。\n『八百壯士』時代,中華民族面臨了攸關生死存亡的日本侵華戰爭,當時全國人民包括國、共兩黨都團結在這面旗幟底下,奮起抵抗,經過八年的浴血奮鬥,終於打敗了日本,光復了臺灣,鴉片戰爭以來的百年恥辱也一掃而空,更就此一躍而為世界五強之一。\n後來雖然因為國民政府的失敗,這面旗幟被趕出了大陸,只能在台灣島上飄揚。但從此國民政府痛定思痛,在這面旗幟底下,勵精圖治,土地改革,發展經濟,推動民主,讓台灣從戰後滿目蒼夷、一窮二白的困境中走了出來,經濟上進入了中產階級社會,政治上也邁入了民主自由的體制,成為中國三民主義的模範省。\n不幸蒙塵 淪為台獨的工具\n曾幾何時,在李、扁等綠色政客的操弄下,那些在她呵護下,孕育成長的群眾,竟把她棄之如蔽履,甚或踐踏在腳下。2006年那場轟轟烈烈的倒扁運動,以藍營群眾為主的群眾,把她趕在外面,不准進場;綠營群眾則在他們的反制活動中,把她像垃圾一樣丟在地上,任人踐踏。\n沒想到一個小女孩周子瑜,突然把她捧成了時代的寵兒。許多經常踐踏她的綠色政客們,紛紛搶在各種媒體上露臉,說是要誓死捍衛她的尊嚴。但別高興的太早,他們並不是幡然悔悟,真心愛護這面旗幟,只是把她當作挑釁大陸,製造對立的工具罷了,用完後馬上就會把她丟到垃圾箱裡。\n兩岸統一 再現光芒\n難道這就是她的宿命嗎?不!絕對不是!只要兩岸統一,青天白日滿地紅就可以再現光芒。\n大陸以前不認她,因為她要與五星紅旗爭中國的正統;現在不認她,因為她已漸淪為台獨的護身符。但只要在一國兩制的框架下,兩岸和平統一後,青天白日滿地紅就可以:\n1、作為代表台灣地區的旗幟,大大方方的在台灣飄揚 ,屹立不倒。\n2、受到全中國人民的歡迎,堂而皇之地回到大陸,只要在有台商的地方,就可以在台商的園區,高高昇起。\n3、以代表中國台灣特區的身份,再次風風光光的進入國際舞台,在APEC、WHO、或者奧運的場合,迎風招展。\n兩岸早日統一吧!讓我們的青天白日滿地紅永遠飄揚,再現光芒!"
res$stream$message[length(res$stream)]
## [1] "【健保應照顧弱勢,而非詆毀國家者】\n\n今日國是論壇,昭順特別以黃安回台「開心」事件為題發言。看到黃安的新聞,昭順心裡五味雜陳,黃安到大陸發展事業,然後又罵台灣是鬼地方,甚至連周子瑜拿國旗都要被其舉報!\n\n昭順認為,中華民國是主權獨立國家,而且我們對於國際醫療需求一向不遺餘力。但我們的國人到國外去詆毀我們的國家,又回來使用我們的健保,實是讓所有人民憤怒唾棄。\n\n昭順呼籲衛生福利部針對這樣的案例修法,讓健保能真正用在急需協助者,真正照顧需要的弱勢!"

啟動jiebaR斷詞

trySeg <- worker()
resSeg <- lapply(res$stream$message, function(x) trySeg[x])
class(resSeg)
## [1] "list"
length(resSeg)
## [1] 30
head(resSeg, 1)
## [[1]]
##   [1] "青天白日"   "滿地"       "紅"         "張"         "安樂"      
##   [6] "美麗"       "的"         "畫面"       "打倒"       "列強"      
##  [11] "打倒"       "列強"       "除"         "軍閥"       "除"        
##  [16] "軍閥"       "國民革命"   "成功"       "國民革命"   "成功"      
##  [21] "齊"         "歡唱"       "齊"         "歡唱"       "忘"        
##  [26] "了"         "不知"       "是"         "哪部"       "片子"      
##  [31] "的"         "銀幕"       "裡"         "在"         "國民革命"  
##  [36] "歌"         "的"         "輕快"       "歌聲"       "伴隨"      
##  [41] "下"         "一支"       "雄赳赳"     "氣昂昂"     "的"        
##  [46] "隊伍"       "高舉"       "著"         "青天白日"   "滿地"      
##  [51] "紅的"       "旗幟"       "邁向"       "北伐"       "的"        
##  [56] "戰場"       "中國"       "一定"       "強"         "中國"      
##  [61] "一定"       "強"         "你"         "看"         "那"        
##  [66] "民族英雄"   "謝"         "團長"       "中國"       "一定"      
##  [71] "強"         "中國"       "一定"       "強"         "你"        
##  [76] "看"         "那"         "八百壯士"   "孤軍"       "奮守東"    
##  [81] "戰場"       "四方"       "都"         "是"         "炮火"      
##  [86] "四方"       "都"         "是"         "豺狼"       "寧願"      
##  [91] "死"         "不"         "退讓"       "寧願"       "死"        
##  [96] "不"         "投降"       "我們"       "的"         "國旗"      
## [101] "在"         "重圍"       "中"         "飄蕩"       "飄蕩"      
## [106] "飄蕩"       "飄蕩"       "八百壯士"   "電影"       "的"        
## [111] "銀幕"       "裡"         "在"         "中國"       "一定"      
## [116] "強"         "嘹亮"       "的"         "歌聲"       "中"        
## [121] "青天白日"   "滿地"       "紅的"       "旗幟"       "在"        
## [126] "日軍"       "的"         "炮火"       "下"         "驕傲地"    
## [131] "昇"         "上"         "了"         "上海"       "四行"      
## [136] "倉庫"       "的"         "頂樓"       "山川"       "壯麗"      
## [141] "物產"       "豐隆"       "炎黃"       "世胄"       "東亞"      
## [146] "稱雄"       "毋"         "自暴自棄"   "毋"         "故步自封"  
## [151] "光"         "我"         "民族"       "促進"       "大同"      
## [156] "創業維艱"   "緬懷"       "諸"         "先烈"       "守成不易"  
## [161] "莫徒務"     "近功"       "同心同德"   "貫徹始終"   "青天白日"  
## [166] "滿地"       "紅"         "同心同德"   "貫徹始終"   "青天白日"  
## [171] "滿地"       "紅"         "從小"       "學到"       "高中"      
## [176] "每次"       "升旗典禮"   "上"         "青天白日"   "滿地"      
## [181] "紅的"       "旗幟"       "在"         "國旗歌"     "優雅"      
## [186] "的"         "歌聲"       "伴隨"       "下"         "在"        
## [191] "旗桿"       "上"         "冉冉"       "地上"       "昇"        
## [196] "光輝"       "的"         "歷史"       "三個"       "畫面"      
## [201] "代表"       "了"         "青天白日"   "滿地"       "紅"        
## [206] "這面"       "旗幟"       "的"         "三個"       "輝煌"      
## [211] "時代"       "在"         "國民革命"   "歌"         "時代"      
## [216] "由國"       "共"         "兩"         "黨"         "組成"      
## [221] "的"         "國民革命軍" "在"         "青天白日"   "滿地"      
## [226] "紅的"       "旗幟"       "底下"       "邁向"       "北伐"      
## [231] "戰場"       "收服"       "了"         "盤踞"       "在"        
## [236] "各地"       "的"         "軍閥"       "完成"       "了"        
## [241] "國家"       "初步"       "的"         "統一"       "展開"      
## [246] "了有"       "黃金"       "十年"       "美譽"       "的"        
## [251] "國家"       "建設"       "奠定"       "了"         "日後"      
## [256] "抗戰"       "的"         "基礎"       "八百壯士"   "時代"      
## [261] "中華民族"   "面臨"       "了"         "攸關"       "生死存亡"  
## [266] "的"         "日本"       "侵華"       "戰爭"       "當時"      
## [271] "全國"       "人民"       "包括"       "國"         "共"        
## [276] "兩"         "黨"         "都"         "團結"       "在"        
## [281] "這面"       "旗幟"       "底下"       "奮起"       "抵抗"      
## [286] "經過"       "八年"       "的"         "浴血"       "奮鬥"      
## [291] "終於"       "打敗"       "了"         "日本"       "光復"      
## [296] "了"         "臺灣"       "鴉片戰爭"   "以來"       "的"        
## [301] "百年"       "恥辱"       "也"         "一掃而空"   "更"        
## [306] "就此"       "一躍而"     "為"         "世界"       "五強"      
## [311] "之一"       "後來"       "雖然"       "因為"       "國民政府"  
## [316] "的"         "失敗"       "這面"       "旗幟"       "被"        
## [321] "趕出"       "了"         "大陸"       "只能"       "在"        
## [326] "台灣"       "島上"       "飄揚"       "但"         "從此"      
## [331] "國民政府"   "痛定思痛"   "在"         "這面"       "旗幟"      
## [336] "底下"       "勵精圖治"   "土地改革"   "發展"       "經濟"      
## [341] "推動"       "民主"       "讓"         "台灣"       "從"        
## [346] "戰後"       "滿目"       "蒼夷"       "一窮二白"   "的"        
## [351] "困境"       "中"         "走"         "了"         "出來"      
## [356] "經濟"       "上"         "進入"       "了"         "中產階級"  
## [361] "社會"       "政治"       "上"         "也"         "邁入"      
## [366] "了"         "民主自由"   "的"         "體制"       "成為"      
## [371] "中國"       "三民主義"   "的"         "模範省"     "不幸"      
## [376] "蒙塵"       "淪為"       "台獨"       "的"         "工具"      
## [381] "曾幾何時"   "在李"       "扁"         "等"         "綠色"      
## [386] "政客"       "的"         "操弄"       "下"         "那些"      
## [391] "在"         "她"         "呵護"       "下"         "孕育"      
## [396] "成長"       "的"         "群眾"       "竟"         "把"        
## [401] "她棄"       "之"         "如蔽履"     "甚或"       "踐踏在"    
## [406] "腳下"       "2006"       "年"         "那場"       "轟轟烈烈"  
## [411] "的"         "倒"         "扁"         "運動"       "以藍營"    
## [416] "群眾"       "為"         "主"         "的"         "群眾"      
## [421] "把"         "她"         "趕"         "在"         "外面"      
## [426] "不准"       "進場"       "綠營"       "群眾則"     "在"        
## [431] "他們"       "的"         "反制"       "活動"       "中"        
## [436] "把"         "她"         "像"         "垃圾"       "一樣"      
## [441] "丟在"       "地上"       "任人"       "踐踏"       "沒想到"    
## [446] "一個"       "小女孩"     "周子"       "瑜"         "突然"      
## [451] "把"         "她"         "捧成"       "了"         "時代"      
## [456] "的"         "寵兒"       "許多"       "經常"       "踐踏"      
## [461] "她"         "的"         "綠色"       "政客"       "們"        
## [466] "紛紛"       "搶"         "在"         "各種"       "媒體"      
## [471] "上"         "露臉"       "說"         "是"         "要"        
## [476] "誓死捍衛"   "她"         "的"         "尊嚴"       "但別"      
## [481] "高興"       "的"         "太早"       "他們"       "並"        
## [486] "不是"       "幡然悔悟"   "真心"       "愛護"       "這面"      
## [491] "旗幟"       "只是"       "把"         "她"         "當作"      
## [496] "挑釁"       "大陸"       "製造"       "對立"       "的"        
## [501] "工具"       "罷了"       "用"         "完"         "後"        
## [506] "馬上"       "就"         "會"         "把"         "她"        
## [511] "丟到"       "垃圾箱"     "裡"         "兩岸"       "統一"      
## [516] "再現"       "光芒"       "難道"       "這"         "就是"      
## [521] "她"         "的"         "宿命"       "嗎"         "不"        
## [526] "絕對"       "不是"       "只要"       "兩岸"       "統一"      
## [531] "青天白日"   "滿地"       "紅就"       "可以"       "再現"      
## [536] "光芒"       "大陸"       "以前"       "不認"       "她"        
## [541] "因為"       "她"         "要"         "與"         "五星紅旗"  
## [546] "爭"         "中國"       "的"         "正統"       "現在"      
## [551] "不認"       "她"         "因為"       "她"         "已漸"      
## [556] "淪為"       "台獨"       "的"         "護身符"     "但"        
## [561] "只要"       "在"         "一國兩制"   "的"         "框架"      
## [566] "下"         "兩岸"       "和平統一"   "後"         "青天白日"  
## [571] "滿地"       "紅就"       "可以"       "1"          "作"        
## [576] "為"         "代表"       "台灣"       "地區"       "的"        
## [581] "旗幟"       "大大方方"   "的"         "在"         "台灣"      
## [586] "飄揚"       "屹立"       "不倒"       "2"          "受到"      
## [591] "全"         "中國"       "人民"       "的"         "歡迎"      
## [596] "堂而皇之"   "地"         "回到"       "大陸"       "只要"      
## [601] "在"         "有"         "台商"       "的"         "地方"      
## [606] "就"         "可以"       "在"         "台商"       "的"        
## [611] "園區"       "高高"       "昇"         "起"         "3"         
## [616] "以"         "代表"       "中國"       "台灣"       "特區"      
## [621] "的"         "身份"       "再次"       "風風光光"   "的"        
## [626] "進入"       "國際"       "舞台"       "在"         "APEC"      
## [631] "WHO"        "或者"       "奧運"       "的"         "場合"      
## [636] "迎風招展"   "兩岸"       "早日"       "統一"       "吧"        
## [641] "讓"         "我們"       "的"         "青天白日"   "滿地"      
## [646] "紅"         "永遠"       "飄揚"       "再現"       "光芒"

啟動jiebaR斷詞

resSeg <- do.call("c", resSeg)
class(resSeg)
## [1] "character"
length(resSeg)
## [1] 5647

篩掉 stopping words,計算詞頻

stopwords <- c("的", "是", "了", "跟", "與", "在")
resSeg <- filter_segment(resSeg, stopwords)
resMtx <- table(resSeg)
tail(resMtx)
## resSeg
##     黨內     黨名     黨產   黨產偷       齊 龍兄虎弟 
##        1        1        1        1        2        1

簡單清一下資料

resMtx2 <- as.data.frame(resMtx) %>% filter(Freq > 2)
tail(resMtx2)
##     resSeg Freq
## 421 馬英九   10
## 422   高興    5
## 423   高舉    4
## 424     黃    3
## 425   黃安   62
## 426     黨   17

文字雲

par(family='Heiti TC Light') # MAC only
pal <- brewer.pal(9,"Paired")
wordcloud(resMtx2$resSeg, resMtx2$Freq, min.freq = 5, colors=pal)

候選人們在臉書上是怎麼po文聲援周子瑜的呢?

除了提到她的名字以外,最多人說「台灣」

  • 台灣 > 大陸 > 中國 > 中華民國

也很愛提到「我」

  • 畢竟「我」才是候選人,才是主角啊!

也有人提到媒體

  • 覺得都是媒體炒作

珍惜手中的選票,讓我們一起努力,讓臺灣成為一個更好的臺灣。